unit pkhsSer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  CPort;

const
  FILE_MAPPING_NAME='';
  FILE_MAPPING_SIZE=128;
  EVENT_SEND_NAME='';
  EVENT_SET_NAME='';
type
  Tpkhs = class(TService)
    ComPort1: TComPort;
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

  TListener = class(TThread)
  private

  protected
    procedure Execute; override;
  public
    constructor Create;
  end;


var
  pkhs: Tpkhs;

implementation

{$R *.DFM}

procedure TListener.Execute;
begin

end;

constructor TListener.Create;
begin
  
end;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  pkhs.Controller(CtrlCode);
end;

function Tpkhs.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

end.
